home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Ahoy 1984 July to December
/
Ahoy_Magazine_84-Jul-Dec_1984_Double_L_unofficial.d64
/
vic space lanes
(
.txt
)
< prev
Wrap
Commodore BASIC
|
2022-10-26
|
2KB
|
70 lines
1 poke36879,56:gosub500
2 pl=3:s=36878:s1=s-1:gosub100
5 pokel,.:pokel+cc,7
10 poke37154,127:ifpeek(37152)=119thend=1
15 jr=peek(37137):ifjr=118orjr=54thend=22
20 ifjr=110orjr=46thend=-1
25 ifjr=122orjr=58thend=-22
30 l1=peek(l+d):ifl1=63thend=0:goto10
35 ifl1=4thenpo=po+5:gosub90
38 ifint(rnd(0)*10)=9thengosub50
40 pokel,32:l=l+d:pokel,.:pokel+cc,7:d=0:goto10
50 r=int(rnd(1)*10):r1=r*44
55 forx=7725+r1to7741+r1:pokex,63:pokex+cc,1:nextx
60 ifl>7724+r1andl<7742+r1thenpl=pl-1:gosub600
65 forx=7725+r1to7741+r1:pokex,32:nextx:return
90 pokes,15:pokes,0:ifpo>hsthenhs=po
92 print"";po:print"":printtab(17)"[145][145][145][145]";hs
94 ifpo/400=int(po/400)thengosub400
95 return
100 cc=30720:l=7931:d=0:hs=(peek(901)*256)+peek(900):poke36869,255
110 print"[147][159]??????????????????????"
115 print"[145][156]??????????????????????[157][157]"
120 print"[145]?[159] ??[158]?[156]?"
130 print"[145]? ? ? ? ? ? ? ? ? ??[158]?[156]?"
135 print"[145]?[159] ??[158]?[156]?"
140 print"[145]? ? ? ? ? ? ? ? ? ??[158]?[156]?"
145 print"[145]?[159] ??[158]?[156]?"
150 print"[145]? ? ? ? ? ? ? ? ? ??[158]?[156]?"
155 print"[145]?[159] ??[158]?[156]?"
160 print"[145]? ? ? ? ? ? ? ? ? ??[158]?[156]?"
165 print"[145]?[159] ??[158]?[156]?"
170 print"[145]? ? ? ? ? ? ? ? ? ??[158]?[156]?"
175 print"[145]?[159] ??[158]?[156]?"
180 print"[145]? ? ? ? ? ? ? ? ? ??[158]?[156]?"
185 print"[145]?[159] ??[158]?[156]?"
190 print"[145]? ? ? ? ? ? ? ? ? ??[158]?[156]?"
195 print"[145]?[159] ??[158]?[156]?"
200 print"[145]? ? ? ? ? ? ? ? ? ??[158]?[156]?"
205 print"[145]?[159] ??[158]?[156]?"
210 print"[145]? ? ? ? ? ? ? ? ? ??[158]?[156]?"
215 print"[145]?[159] ??[158]?[156]?[157][157][157]"
220 print"[145]????????????????????[158]?[156]?"
225 forx=8164to8185:pokex,63:pokex+cc,3:nextx:poke8184+cc,7:poke8185+cc,4
238 print"":printtab(21)"[144]s[157]p[157]a[157]c[157]e[157]m[157]a[157]z[157]e"
239 print"[144]by, robert alonso"
240 print"[144]score:"::print"":printtab(12)"[145][145][145][145][145]high:"
400 forx=7747to7763step2:forx1=0to352step44:pokex+x1,4:pokex+x1+cc,7:nextx1,x
420 return
500 print"[147]":forx1=1to200:print""
505 dl=int(rnd(1)*500)+1:dc=int(rnd(1)*8)+1:poke7680+dl,160:poke38400+dl,dc
507 printtab(8)
510 forx=0to7:poke646,x:print"[157][157][157][157][157][157][157][157]space maze";:next
515 nextx1
545 ifpeek(7168)<>24thenpoke900,0:poke901,0
550 forx=7168to7679:pokex,peek(x+25600):next
555 forx=0to7:reada:poke7168+x,a:next
557 forx=0to7:reada:poke7200+x,a:next
560 forx=0to7:poke7672+x,255:next
570 return
600 pokes1,222:forx=9to15step2:pokes,x:forx1=1to45:nextx1,x:forx2=1to50:nextx2
605 forx=15to10step-1:pokes,x:forx1=1to50:nextx1,x:pokes,0
610 forx=15to0step-1:pokes,x:forx1=1to70:nextx1,x
620 ifpl=0then660
630 return
660 h1=int(hs/256):h2=hs-h1*256
670 poke900,h2:poke901,h1
680 print"[147]":poke36879,27:poke36869,240:end
800 data24,60,126,24,189,231,195,129
810 data0,0,0,24,24,0,0,0